home *** CD-ROM | disk | FTP | other *** search
/ Assassins - Ultimate CD Games Collection 4 / Assassins 4 (1999)(Weird Science).iso / tools_to_use / fix_utils / idefxcd32guide / idefixcd32guide-instdisk < prev    next >
Text File  |  1997-12-03  |  22KB  |  792 lines
  1. ; $VER: "IDEfix-CD32-Emulator-Support-Guide" - Boot disk installer script V1.02 (03. 12. 1997)
  2. ; By Thomas Rehbein
  3.  
  4. (if (= @language "deutsch")
  5.   (set #loc 1)
  6.  (set #loc 0)
  7. )
  8.  
  9. (set #agd-default "DF0:C")
  10. (set #mvd-default "DF0:Utilities")
  11.  
  12. (if (= #loc 1)
  13.   (set #guide-name "IDEfixCD32Emul.deu.guide")
  14.  (set #guide-name "IDEfixCD32Emul.eng.guide")
  15. )
  16. (set #guidestd-name "IDEfixCD32Emul.guide")
  17. (set #readme-name "IDEfixCD32Guid.readme")
  18. (set #install-name "IDEfixCD32Guide-Inst")
  19.  
  20. (set #reqchd-path "DF0:C/RequestChoice")
  21. (set #reqchdold-path "DF0:C/RequestChoiceOld.bak")
  22.  
  23. (set #startupd-path "DF0:S/StartUp-Sequence")
  24.  
  25. (set #newstartupd-dest "DF0:S/IDEfixCD32Guide-StartUp")
  26.  
  27. (set #reqchold-text "\"RequestChoiceOld.bak\"")
  28. (set #execom-text
  29.   (cat "Assign T: RAM:\nAssign ENV: RAM:\n"
  30.        "Execute S:IDEfixCD32Guide-StartUp"
  31.   )
  32. )
  33. (set #execomonly-text "\"Execute S:IDEfixCD32Guide-StartUp\"")
  34. (set #newstartup-text "\"IDEfixCD32Guide-StartUp\"")
  35.  
  36. ; ========================================================================
  37.  
  38. (if (= #loc 1)
  39.   (
  40.    (set #no-help " Hier ist keine Hilfe vorhanden.")
  41.  
  42.    (set #oldvexists-text
  43.      (cat "\n\nHast Du auf Deinem Rechner momentan auch"
  44.           " den "@app-name" V1.01 (Erste öffentlich Version) installiert?"
  45.      )
  46.    )
  47.  
  48.    (set #deloldv-text
  49.      (cat "\n\nHierbei handelt es sich um eine etwas erweiterte und"
  50.           " veränderte Version. Ich schlage vor, die alte Version"
  51.           " zu löschen. Stimmst Du zu?\n\n"
  52.           "(Siehe Hilfe für mehr Infos!)"
  53.      )
  54.    )
  55.  
  56.    (set #deloldv-help
  57.      (cat " Die alte Version wird nicht mehr benötigt. Beim Installieren"
  58.           " dieser neuen Version kann es vorkommen, dass Teile der alten"
  59.           " Version auf dem Datenträger verbleiben, was nicht unbedingt"
  60.           " erwünscht ist, nicht wahr?\n\n Wenn Du zustimmst, wird das Skript"
  61.           " abgebrochen. Du solltest dann im \"ReadMe\" nachschauen,"
  62.           " welche Dateien bei der Deinstallation gelöscht werden müssen."
  63.           " Diese Dateien sollten dann auch gelöscht werden. :-)\n\n"
  64.           " Wenn Dir die alte Version (bzw. Teile davon)"
  65.           " nichts ausmacht, kann auch ruhig mit dem Skript fortgefahren"
  66.           " werden."
  67.      )
  68.    )
  69.  
  70.    (set #goon-text "\n\nOkay, weiter geht's... :-)")
  71.  
  72.    (set #diskinst-text
  73.      (cat "\n\nWie Du (hoffentlich) bereits dem \"ReadMe\" entnehmen"
  74.           " konntest, müssen sich auf der IDEfix-CD32-Emulator-Boot-Diskette"
  75.           " alle für den "@app-name" erforderlichen Programme befinden!\n\n"
  76.           "Hast Du die entsprechenden Programme schon auf die"
  77.           " Boot-Diskette kopiert?"
  78.      )
  79.    )
  80.  
  81.    (set #diskinst-help
  82.      (cat " Falls Du dies noch nicht gemacht hast, wirf bitte einen Blick"
  83.           " in das mitgelieferte \"ReadMe\", dort steht alles, was"
  84.           " wichtig ist!"
  85.      )
  86.    )
  87.  
  88.    (set #makediskinst-text
  89.      (cat "\n\nDie Installation wird hiermit [hoffentlich nur"
  90.           " kurzfristig! ;-)] abgebrochen. Bitte kopiere die"
  91.           " benötigten Dateien auf die Diskette (Siehe \"ReadMe\"-Datei!)."
  92.      )
  93.    )
  94.  
  95.    (set #welcome-text
  96.      (cat "\n\nHiermit wird der "@app-name" V1.02 (03. 12. 1997)"
  97.           " installiert.\n\nEs besteht nun gleich die Möglichkeit,"
  98.           " Anzeigeprogramm(e) und Zielverzeichnis zu wählen!"
  99.      )
  100.    )
  101.  
  102.    (set #agandmv-text
  103.      (cat "\n\nBesitzt Du sowohl den Guide-Viewer \"AmigaGuide\" als"
  104.           " auch \"MultiView\"?"
  105.      )
  106.    )
  107.  
  108.    (set #agandmv-help
  109.      (cat " Wenn Du 'glücklicher' Besitzer beider Programme bist, kann"
  110.           " eventuell die Benutzerfreundlichkeit beim Booten erhöht"
  111.           " werden (Mehr dazu gleich!)."
  112.      )
  113.    )
  114.  
  115.    (set #gno-text
  116.      (cat "\nDu hast die Möglichkeit, zwischen 2 Varianten zu wählen,"
  117.           " die sich mehr oder weniger auf die Benutzerfreundlichkeit"
  118.           " beim Booten auswirken:\n"
  119.      )
  120.    )
  121.  
  122.    (set #gno-help
  123.      (cat " Das ist eine reine Geschmacksfrage! ;-)\n\n"
  124.           " Wenn Du es magst, dass Du Dich beim Booten zwischen den beiden"
  125.           " Guide-Viewern entscheiden kannst, wähle die 1. Variante"
  126.           " (Du hast übrigens nicht nur die Möglichkeit, zwischen"
  127.           " beiden Viewern zu wählen, sondern auch gar keinen zu wählen"
  128.           " und damit den "@app-name" erst gar nicht"
  129.           " anzeigen zu lassen!)!\n\n"
  130.           " Wenn Du davon nichts hälst und lieber einen 'festen',"
  131.           " permanenten Viewer bevorzugst, wähle Variante 2!"
  132.      )
  133.    )
  134.  
  135.    (set #which-text "\n\nWie heisst Dein Guide-Viewer?")
  136.  
  137.    (set #viewerpath-text
  138.      (cat "Bitte wähle nun den kompletten Pfad für"
  139.           " Dein Anzeigeprogramm "
  140.      )
  141.    )
  142.  
  143.    (set #destdir-text
  144.      (cat "Bitte wähle das Zielverzeichnis für"
  145.           " den "@app-name" aus!"
  146.      )
  147.    )
  148.  
  149.    (set #destdir-help
  150.      (cat " Um den Überblick zu behalten, sollte für den Guide ein"
  151.           " separates Verzeichnis angelegt werden. Diese Vorgehensweise"
  152.           " vereinfacht außerdem eine eventuelle Deinstallation des Guides,"
  153.           " die zu diesem Zeitpunkt noch manuell durchgeführt werden"
  154.           " müsste!\n\nBeispiel-Verzeichnis: \"SYS:S/IDEfixCD32Guide\".\n\n"
  155.           "Es wird dringend empfohlen, solch ein Verzeichnis"
  156.           " einzurichten!\n\n"
  157.      )
  158.    )
  159.  
  160.    (set #reqchinst-text
  161.      (cat "\n\nNun wird \"RequestChoice\" (V40.2) ins \"C\"-Verzeichnis"
  162.           " installiert. Dies ist wichtig, wenn Du vorhin beide Viewer"
  163.           " und die 'Auswahlmöglichkeit' gewählt hast. Aber auch, wenn dies"
  164.           " nicht zutreffen sollte, ist die neue Version sicherlich nichts"
  165.           " Schlechtes. :D\n\nBemerkungen:\n"
  166.           " Eine eventuell ältere Version wird in"
  167.           " "#reqchold-text" umbenannt.\nEinige kleine Texte zur neuen"
  168.           " Version werden ebenfalls 'installiert', welche man nicht"
  169.           " ignorieren sollte! :-)"
  170.      )
  171.    )
  172.  
  173.    (set #reqchok-text
  174.      (cat "\n\nDu warst anscheinend schneller als ich! ;-)"
  175.           " Du hast bereits die neue Version von \"RequestChoice\""
  176.           " installiert!\n\nHerzlichen Glückwunsch! 0=)"
  177.      )
  178.    )
  179.  
  180.    (set #editseq-text
  181.      (cat "\nDamit der Guide kurz vor dem Start des CD32-Emulators"
  182.           " aufgerufen werden kann, müssen in die StartUp-Sequence"
  183.           " die folgenden 3 Zeilen eingefügt werden\n(Direkt vor dem Pfad"
  184.           " Deines CD32-Emulators):\n\n"#execom-text"\n\n"
  185.           "Möchtest Du die StartUp-Sequence jetzt gleich"
  186.           " oder erst später MANUELL ändern?\n\n"
  187.           "(Siehe Hilfe für mehr Informationen!)"
  188.      )
  189.    )
  190.  
  191.    (set #editseq-help
  192.      (cat " In diese neue StartUp-Sequence mit dem"
  193.           " Namen "#newstartup-text", welche durch den"
  194.           " \"Execute\"-Befehl ausgeführt wird, werden alle"
  195.           " für den Aufruf des "@app-name"s"
  196.           " wichtigen Befehle hineingeschrieben!\n\n Wähle \"Jetzt\","
  197.           " um die StartUp-Sequence jetzt gleich zu editieren!"
  198.           " Dafür wird dann der Editor \"Ed\" benutzt. Falls sich"
  199.           " dieser nicht im \"SYS:C\"-Verzeichnis befindet, kannst Du"
  200.           " den richtigen Pfad wählen oder aber Dir einen ganz anderen"
  201.           " Texteditor aussuchen!\n\n Wählst Du \"Später\", muss"
  202.           " die StartUp-Sequence nach der Installation geändert werden!"
  203.      )
  204.    )
  205.  
  206.    (set #editseqok-text
  207.      (cat "\n\nDie folgenden 3 Zeilen müssen eingefügt werden (Direkt vor dem"
  208.           " Pfad Deines CD32-Emulators):\n\n"#execom-text"\n\n"
  209.           "Alles klar? Auf geht's... ;-)"
  210.      )
  211.    )
  212.  
  213.    (set #badtexted-text
  214.      (cat "Konnte den Editor \"Ed\" nicht im \"SYS:C\"-Verzeichnis"
  215.        " finden! Bitte wähle jetzt einen geeigneten Texteditor aus!"
  216.      )
  217.    )
  218.  
  219.    (set #notexted-text
  220.      (cat "\n\nDu hast leider überhaupt keine Datei ausgewählt!\n\n"
  221.           "Bitte ändere die StartUp-Sequence nach der Installation!"
  222.      )
  223.    )
  224.  
  225.    (set #nicehint-text
  226.      (cat "\nKleiner Hinweis zum Schluss\n"
  227.           "---------------------------\n\n"
  228.           "Du kannst statt "#execomonly-text" auch folgende Variante"
  229.           " benutzen:\n\n\"Run >NIL: Execute S:IDEfixCD32Guide-StartUp\"\n\n"
  230.           "Nachdem Du die 'normale' Variante getestet hast,"
  231.           " kannst Du ja mal diese ausprobieren und schauen,"
  232.           " was passiert!\nVielleicht gefällt es Dir besser... ;-)"
  233.      )
  234.    )
  235.  
  236.    (set #exitremind-text
  237.      (cat "\nBitte vergiss nicht, in die StartUp-Sequence"
  238.           " die Zeilen\n\n"#execom-text"\n\n"
  239.           "direkt vor dem Pfad Deines CD32-Emulators einzufügen!"
  240.      )
  241.    )
  242.  
  243.    (set #exit-text
  244.      (cat "\n\nUnd jetzt viel Spaß mit dem Guide wünscht Dir\n\n"
  245.           "Thomas Rehbein\n<Tommy@SpyBox.shnet.org>! ;-)"
  246.      )
  247.    )
  248.   )
  249.  
  250. ; ------------------------------------------------------------------------
  251.  
  252.  (
  253.   (set #no-help " Sorry, no help available.")
  254.  
  255.   (set #oldvexists-text
  256.     (cat "\n\nDid you already install the "@app-name" V1.01"
  257.          " (First public release) on your system?"
  258.     )
  259.   )
  260.  
  261.   (set #deloldv-text
  262.     (cat "\n\nThis is a new version that has been extended. It differs"
  263.          " from the old one, especially with reference to file names."
  264.          " I suggest that you remove the old version. Do you agree?\n\n"
  265.          "(See Help for more information!)"
  266.     )
  267.   )
  268.  
  269.   (set #deloldv-help
  270.     (cat " The old version is no more necessary. After installation of this"
  271.          " new version parts of the old version might still be on your"
  272.          " disk. I think you don't want that, don't you?\n\n If you agree"
  273.          " the script will be aborted. By looking into"
  274.          " the \"ReadMe\" you should find out which files have to be"
  275.          " deleted on deinstallation. These files should be"
  276.          " removed. :-)\n\n If you think the described situation"
  277.          " doesn't matter you can go on with the installation."
  278.     )
  279.   )
  280.  
  281.   (set #goon-text "\n\nOkay, let's go on... :-)")
  282.  
  283.   (set #diskinst-text
  284.     (cat "\n\nOn the IDEfix-CD32-Emulator-Boot-Disk have to be all programs"
  285.          " necessary for the "@app-name" as you already know if you have"
  286.          " looked into the \"ReadMe\"!\n\n"
  287.          "Do you already have copied these programs to your boot disk?"
  288.     )
  289.   )
  290.  
  291.   (set #diskinst-help
  292.     (cat " If you haven't done so, please look into the"
  293.          " included \"ReadMe\". There are all important facts!"
  294.     )
  295.   )
  296.  
  297.   (set #makediskinst-text
  298.     (cat "\n\nThe installation is aborted [I don't hope for long! ;-)]"
  299.          " Please copy the files that are necessary to your"
  300.          " boot disk (See \"ReadMe\"!)."
  301.     )
  302.   )
  303.  
  304.   (set #welcome-text
  305.     (cat "\n\nThis script will install the "@app-name" V1.02"
  306.          " (03. 12. 1997).\n\nNext you can choose your guide viewer(s)"
  307.          " and your destination directory!"
  308.     )
  309.   )
  310.  
  311.   (set #agandmv-text "\n\nDo you have both \"AmigaGuide\" and \"MultiView\"?")
  312.  
  313.   (set #agandmv-help
  314.     (cat " If you have both programs the comfortability on bootup can be"
  315.          " improved (More information follow!)."
  316.     )
  317.   )
  318.  
  319.   (set #gno-text
  320.     (cat "\nNow you can choose between 2 variants that will influence"
  321.          " the comfortability on bootup:\n"
  322.     )
  323.   )
  324.  
  325.   (set #gno-help
  326.     (cat " It's just a 'matter of taste'! ;-)\n\n"
  327.          " If you like the idea to be able to choose between the two"
  328.          " guide viewers, select the 1st variant"
  329.          " (Note that you also have the possibility to select none of the"
  330.          " guide viewers. In that case the "@app-name" wouldn't be"
  331.          " shown!)!\n\n"
  332.          " If you prefer using one permanent viewer select variant 2!"
  333.     )
  334.   )
  335.  
  336.   (set #which-text "\n\nWhich is your guide viewer?")
  337.  
  338.   (set #viewerpath-text
  339.     (cat "Please select the complete path of your guide viewer ")
  340.   )
  341.  
  342.   (set #destdir-text
  343.     (cat "Select the destination directory for the "@app-name"!")
  344.   )
  345.  
  346.   (set #destdir-help
  347.     (cat " You should create a separate directory for the guide,"
  348.          " otherwise you might lose control due to a great amount"
  349.          " of files in different directories (E. g. the"
  350.          " \"S\"-directory)! Besides, in this way a possible"
  351.          " deinstallation of the guide that you would have to make"
  352.          " manually will be easier.\n\nExample drawer:"
  353.          " \"SYS:S/IDEfixCD32Guide\".\n\nIt is highly"
  354.          " recommended to use such a directory!\n\n"
  355.     )
  356.   )
  357.  
  358.   (set #reqchinst-text
  359.     (cat "\n\nNow \"RequestChoice\" (V40.2) will be copied into"
  360.          " the \"C\"-directory. This is significant if you have selected"
  361.          " both viewers and the 'Choice' option. However, if you don't"
  362.          " have done so it's surely not bad to install the newest"
  363.          " version. :D\n\nNote:\nAn older version will be renamed"
  364.          " to "#reqchold-text".\nBesides, some documents which you"
  365.          " shouldn't ignore will be copied, too! :-)"
  366.     )
  367.   )
  368.  
  369.   (set #reqchok-text
  370.     (cat "\n\nCongratulations!\n\nYou already have installed the new version"
  371.          " of \"RequestChoice\"! 0=)"
  372.     )
  373.   )
  374.  
  375.   (set #editseq-text
  376.     (cat "\nThe guide should be shown before the CD32-Emulator starts."
  377.          " For that purpose the following 3 lines have to be added to"
  378.          " the StartUp-Sequence\n(Before the path"
  379.          " of your CD32-Emulator):\n\n"#execom-text"\n\n"
  380.          "Do you want to edit the StartUp-Sequence now or"
  381.          " later MANUALLY?\n\n"
  382.          "(See Help for more information!)"
  383.     )
  384.   )
  385.  
  386.   (set #editseq-help
  387.     (cat " In this new StartUp-Sequence "#newstartup-text" that will be"
  388.          " executed by the \"Execute\"-command will be inserted all commands"
  389.          " necessary for starting the "@app-name"!\n\n"
  390.          " Select \"Now\" to edit the StartUp-Sequence right now!"
  391.          " The editor \"Ed\" will be used for that. If it is not in your"
  392.          " \"SYS:C\"-directory you can choose the right path or a complete"
  393.          " different editor!\n\n If you select \"Later\" you have to edit"
  394.          " the StartUp-Sequence after the installation!"
  395.     )
  396.   )
  397.  
  398.   (set #editseqok-text
  399.     (cat "\n\nThe following 3 lines have to be added (Before the"
  400.          " path of your CD32-Emulator):\n\n"#execom-text"\n\n"
  401.          "Let's get to work... ;-)"
  402.     )
  403.   )
  404.  
  405.   (set #badtexted-text
  406.     (cat "Couldn't find the editor \"Ed\" in your \"SYS:C\"-drawer!"
  407.          " Please select an editor of your choice!"
  408.     )
  409.   )
  410.  
  411.   (set #notexted-text
  412.     (cat "\n\nYou didn't select anything!\n\n"
  413.          "Please edit the StartUp-Sequence afterwards!"
  414.     )
  415.   )
  416.  
  417.   (set #nicehint-text
  418.     (cat "\nHint\n"
  419.          "----\n\n"
  420.          "Instead of using "#execomonly-text" you can also try this"
  421.          " variant:\n\n\"Run >NIL: Execute S:IDEfixCD32Guide-StartUp\"\n\n"
  422.          "After you've tested the 'normal' variant you can try this one.\n"
  423.          "Maybe you like it better... ;-)"
  424.     )
  425.   )
  426.  
  427.   (set #exitremind-text
  428.     (cat "\n\nDon't forget to add the lines\n"#execom-text"\n"
  429.          "to the StartUp-Sequence (Before the path of your CD32-Emulator)!"
  430.     )
  431.   )
  432.  
  433.   (set #exit-text
  434.     (cat "\n\nThomas Rehbein\n<Tommy@SpyBox.shnet.org>\n\n"
  435.          "wishes you a lot of fun with the guide! ;-)"
  436.     )
  437.   )
  438.  )
  439. )
  440.  
  441. ; ========================================================================
  442.  
  443. (set #oldvexists
  444.   (askbool
  445.     (prompt #oldvexists-text)
  446.     (help #no-help)
  447.   )
  448. )
  449.  
  450. (if (= #oldvexists 1)
  451.   (
  452.    (set #deloldv
  453.      (askbool
  454.        (prompt #deloldv-text)
  455.        (help #deloldv-help)
  456.        (if (= #loc 1)
  457.          (choices "Ja, alte Version löschen" "Nein, weiter")
  458.         (choices "Yes, remove old version" "No, go on")
  459.        )
  460.      )
  461.    )
  462.    (if (= #deloldv 1)
  463.      (exit (quiet))
  464.     (message #goon-text)
  465.    )
  466.   )
  467.  (message #goon-text)
  468. )
  469.  
  470. (set #diskinst
  471.   (askbool
  472.     (prompt #diskinst-text)
  473.     (help #diskinst-help)
  474.   )
  475. )
  476.  
  477. (if (= #diskinst 0)
  478.   (
  479.    (message #makediskinst-text)
  480.    (exit (quiet))
  481.   )
  482.  (message #goon-text)
  483. )
  484.  
  485. (welcome)
  486.  
  487. (complete 0)
  488.  
  489. (message #welcome-text)
  490.  
  491. (set #agandmv
  492.   (askbool
  493.     (prompt #agandmv-text)
  494.     (help #agandmv-help)
  495.   )
  496. )
  497.  
  498. (complete 5)
  499.  
  500. (if (= #agandmv 1)
  501.   (
  502.    (set #gno
  503.      (askchoice
  504.        (prompt #gno-text)
  505.        (help #gno-help)
  506.        (if (= #loc 1)
  507.          (choices "Auswahlmöglichkeit zwischen beiden Viewern" "'Fester' Viewer")
  508.         (choices "Choice between the two viewers" "One permanent viewer")
  509.        )
  510.      )
  511.    )
  512.    (if (= #gno 1)
  513.      (set #agandmv 0)
  514.    )
  515.   )
  516. )
  517.  
  518. (if (= #agandmv 0)
  519.   (
  520.    (set #which
  521.      (askbool
  522.        (prompt #which-text)
  523.        (help #no-help)
  524.        (choices "AmigaGuide" "MultiView")
  525.      )
  526.    )
  527.    (if (= #which 1)
  528.      (set #viewer "AmigaGuide")
  529.     (set #viewer "MultiView")
  530.    )
  531.   )
  532. )
  533.  
  534. (complete 10)
  535.  
  536. (if (= #agandmv 0)
  537.   (
  538.    (if (= #loc 1)
  539.      (set #vieweradd-text
  540.        (cat "\""#viewer"\" aus!")
  541.      )
  542.     (set #vieweradd-text
  543.       (cat "\""#viewer"\"!")
  544.     )
  545.    )
  546.    (set #viewer-path
  547.      (askfile
  548.        (prompt #viewerpath-text #vieweradd-text)
  549.        (help @askfile-help)
  550.        (if (= #which 1)
  551.          (default #agd-default)
  552.         (default #mvd-default)
  553.        )
  554.      )
  555.    )
  556.   )
  557.  (
  558.   (if (= #loc 1)
  559.     (set #vieweradd-text
  560.       (cat "\"AmigaGuide\" aus!")
  561.     )
  562.    (set #vieweradd-text
  563.      (cat "\"AmigaGuide\"!")
  564.    )
  565.   )
  566.   (set #viewer1-path
  567.     (askfile
  568.       (prompt #viewerpath-text #vieweradd-text)
  569.       (help @askfile-help)
  570.       (default #agd-default)
  571.     )
  572.   )
  573.   (if (= #loc 1)
  574.     (set #vieweradd-text
  575.       (cat "\"MultiView\" aus!")
  576.     )
  577.    (set #vieweradd-text
  578.      (cat "\"MultiView\"!")
  579.    )
  580.   )
  581.   (set #viewer2-path
  582.     (askfile
  583.       (prompt #viewerpath-text #vieweradd-text)
  584.       (help @askfile-help)
  585.       (default #mvd-default)
  586.     )
  587.   )
  588.  )
  589. )
  590.  
  591. (complete 25)
  592.  
  593. (set #dest-dir
  594.   (askdir
  595.     (prompt #destdir-text)
  596.     (help @askdir-help)
  597.     (default "DF0:S")
  598.     (newpath)
  599.     (disk)
  600.   )
  601. )
  602.  
  603. (set @default-dest #dest-dir)
  604.  
  605. (complete 30)
  606.  
  607. (copyfiles
  608.   (source #guide-name)
  609.   (dest @default-dest)
  610.   (infos)
  611. )
  612.  
  613. (rename (tackon @default-dest #guide-name) (tackon @default-dest #guidestd-name))
  614. (rename
  615.   (cat (tackon @default-dest #guide-name) ".info")
  616.   (cat (tackon @default-dest #guidestd-name) ".info")
  617. )
  618.  
  619. (copyfiles
  620.   (source #readme-name)
  621.   (dest @default-dest)
  622.   (infos)
  623. )
  624.  
  625. (copyfiles
  626.   (source "ReqCh.lha")
  627.   (dest @default-dest)
  628. )
  629.  
  630. (copyfiles
  631.   (source "ReqCh.readme")
  632.   (dest @default-dest)
  633. )
  634.  
  635. (copyfiles
  636.   (source @icon)
  637.   (dest @default-dest)
  638.   (infos)
  639. )
  640.  
  641. (copyfiles
  642.   (source #install-name)
  643.   (dest @default-dest)
  644.   (infos)
  645. )
  646.  
  647. (complete 50)
  648.  
  649. (set #reqch-ver
  650.   (getversion #reqchd-path)
  651. )
  652.  
  653. (if (< #reqch-ver 2621442)
  654.   (
  655.    (message #reqchinst-text)
  656.    (run "LhA x ReqCh.lha RAM:")
  657.    (if (exists #reqchd-path)
  658.      (rename #reqchd-path #reqchdold-path)
  659.    )
  660.    (copyfiles
  661.      (source "ReqCh.readme")
  662.      (dest #agd-default)
  663.    )
  664.    (copyfiles
  665.      (source "RAM:ReqCh")
  666.      (dest #agd-default)
  667.      (all)
  668.    )
  669.    (delete "RAM:ReqCh#?"
  670.      (all)
  671.    )
  672.   )
  673.  (message #reqchok-text)
  674. )
  675.  
  676. (complete 65)
  677.  
  678. (set #editseq
  679.   (askbool
  680.     (prompt #editseq-text)
  681.     (help #editseq-help)
  682.     (if (= #loc 1)
  683.       (choices "Jetzt" "Später")
  684.      (choices "Now" "Later")
  685.     )
  686.   )
  687. )
  688.  
  689. (if (= #editseq 1)
  690.   (
  691.    (message #editseqok-text)
  692.    (if (exists "C:Ed")
  693.      (run "C:Ed" #startupd-path)
  694.     (
  695.      (set #texted
  696.        (askfile
  697.          (prompt #badtexted-text)
  698.          (help @askfile-help)
  699.          (default "SYS:")
  700.        )
  701.      )
  702.      (if (= (fileonly #texted) "")
  703.        (
  704.         (message #notexted-text)
  705.         (set #editseq 0)
  706.        )
  707.       (
  708.        (message #editseqok-text)
  709.        (run #texted #startupd-path)
  710.       )
  711.      )
  712.     )
  713.    )
  714.   )
  715. )
  716.  
  717. (complete 80)
  718.  
  719. (set #guide-path (tackon @default-dest #guidestd-name))
  720.  
  721. (if (= #agandmv 0)
  722.   (textfile
  723.     (dest #newstartupd-dest)
  724.     (if (= #which 1)
  725.       (append "; $VER: \""@app-name"\" - StartUp-Sequence V1.0 (18. 07. 1997)\n"
  726.               "; By Thomas Rehbein\n"
  727.               "; Your guide viewer: \"AmigaGuide\"\n\n"
  728.               "\""#viewer-path"\" \""#guide-path"\""
  729.       )
  730.      (append "; $VER: \""@app-name"\" - StartUp-Sequence V1.0 (18. 07. 1997)\n"
  731.              "; By Thomas Rehbein\n"
  732.              "; Your guide viewer: \"MultiView\"\n\n"
  733.              "Assign LIBS: SYS:Classes Add\n"
  734.              "Assign LOCALE: SYS:Locale\n"
  735.              "Assign HELP: LOCALE:Help DEFER\n\n"
  736.              "\""#viewer-path"\" \""#guide-path"\""
  737.      )
  738.     )
  739.   )
  740.  (textfile
  741.    (dest #newstartupd-dest)
  742.    (if (= #loc 1)
  743.      (append "; $VER: \""@app-name"\" - StartUp-Sequence V1.0 (18. 07. 1997)\n"
  744.              "; By Thomas Rehbein\n"
  745.              "; Your guide viewer: \"AmigaGuide\"/\"MultiView\"/None\n\n"
  746.              "C:RequestChoice >NIL: TITLE \"IDEfix-CD32-Emulator-Hilfs-Guide - Nachfrage\" BODY \"Welcher Guide-Viewer soll benutzt werden?\" GADGETS \"AmigaGuide\" \"MultiView\" \"Abbruch\"\n\n"
  747.              "IF VAL $ReqChGG EQ 1\n"
  748.              "\""#viewer1-path"\" \""#guide-path"\"\n"
  749.              "EndIF\n\n"
  750.              "IF VAL $ReqChGG EQ 2\n"
  751.              "Assign LIBS: SYS:Classes Add\n"
  752.              "Assign LOCALE: SYS:Locale\n"
  753.              "Assign HELP: LOCALE:Help DEFER\n"
  754.              "\""#viewer2-path"\" \""#guide-path"\"\n"
  755.              "EndIF\n\n"
  756.              "UnSet ReqChGG"
  757.      )
  758.     (append "; $VER: \""@app-name"\" - StartUp-Sequence V1.0 (18. 07. 1997)\n"
  759.             "; By Thomas Rehbein\n"
  760.             "; Your guide viewer: \"AmigaGuide\"/\"MultiView\"/None\n\n"
  761.             "C:RequestChoice >NIL: TITLE \"IDEfix-CD32-Emulator-Support-Guide - Request\" BODY \"Which guide viewer should be used?\" GADGETS \"AmigaGuide\" \"MultiView\" \"Abort\"\n\n"
  762.             "IF VAL $ReqChGG EQ 1\n"
  763.             "\""#viewer1-path"\" \""#guide-path"\"\n"
  764.             "EndIF\n\n"
  765.             "IF VAL $ReqChGG EQ 2\n"
  766.             "Assign LIBS: SYS:Classes Add\n"
  767.             "Assign LOCALE: SYS:Locale\n"
  768.             "Assign HELP: LOCALE:Help DEFER\n"
  769.             "\""#viewer2-path"\" \""#guide-path"\"\n"
  770.             "EndIF\n\n"
  771.             "UnSet ReqChGG"
  772.     )
  773.    )
  774.  )
  775. )
  776.  
  777. (complete 95)
  778.  
  779. (protect #newstartupd-dest "-e +s")
  780.  
  781. (complete 98)
  782.  
  783. (message #nicehint-text)
  784.  
  785. (complete 100)
  786.  
  787. (if (= #editseq 0)
  788.   (exit #exitremind-text #exit-text)
  789. )
  790.  
  791. (exit #exit-text)
  792.